 :

- Data controal     (Data2- Data3 - Data4 - Data5)    Data1 .
-  Data1  DataSource     Data2  Data1   .
-  Form_Load    :
*   Data1.DatabaseName = App.Path & "\db2.mdb"                   .
*       
Data1.RecordSource = "SELECT hdeth.k_name, hdeth.b_name,hdeth.h_num, hdeth.se_h, hdeth.h_w,rawi.r_abut, s7h.d_name, type.t_name,snd.rawi1, snd.rawi2, snd.rawi3,snd.rawi4, snd.rawi5, snd.rawi6,snd.rawi7 FROM hdeth, rawi, s7h, snd, type WHERE (hdeth.r_num=rawi.r_num) And (hdeth.d_num=s7h.d_num) And (hdeth.s_num=snd.s_num) And (hdeth.t_num=type.t_num)"
Data1.Refresh
